home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 126 / 126.d81 / b.w of the p (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  6KB  |  163 lines
  1. 6 :rem poke214,x:print --- this positions the cursor on row x+1
  2. 8 :rem poke781,x:sys59903 -- this erases line x
  3. 10 poke53280,0:poke53281,0:poke53272,23:print"[147]";
  4. 12 gosub60000:rem ls copyright box
  5. 14 goto120
  6. 20 :
  7. 30 :rem error trap!
  8. 32 :
  9. 40 open4,4,7:close4
  10. 50 ifst=0thenreturn:rem printer is on
  11. 60 poke781,18:sys59903:poke781,19:sys59903
  12. 70 poke214,17:print:print"          [212][213][210][206] [207][206] [217][207][213][210][160][208][210][201][206][212][197][210]       "
  13. 80 print"            [158][193]nd press a key"
  14. 90 geta$:ifa$=""then90
  15. 100 poke781,18:sys59903:poke781,19:sys59903
  16. 110 return
  17. 117 :
  18. 118 :rem screen
  19. 119 :
  20. 120 print"[147]                                       ";
  21. 130 print" [155]   [176][174]     [176][178][192][178][192][174]    [176][192][174]        [176][192][174]  ";
  22. 140 print"       [153][221][221][176][192][178][192][178][189][221][173][219][174][171][192][178][192][174][221][221][171][192][178][192][178][192][178][192][178][177][174][171]";
  23. 150 print"[192][174]    [153]   [159][221][221][221][221][171][189][221][221][221] [221][221][171][189][221] [221][221] [221] [221][221][221] [179][221][221]";
  24. 160 print" [221][221] [179]    [159]   [154][221][173][179] [221][221][221] [171][174][221][221][221][221][221][171][189][221][176][179][171][179][176][219] ";
  25. 170 print"[221][176][179][221][221][171] [221]    [154]   [173][192][177][192][177][192][177][192][177][192][189][173][177][192][177][189] [173][189][173][189][173]";
  26. 180 print"[192][177][192][177][192][177][177][177][177][192][189]        [159][172][219][187]   [176][178][174]  [176][192][174][176][192][178][174] ";
  27. 190 print"  [176][192][174]   [159][172][219][187]      [159]   [172][190][153][221][159][188][187]  [153][221][221][221][176][192][179][171]";
  28. 200 print"[189][173][174][221][173][178][192][174][221][221][221]  [159][172][190][153][221][159][188][187]     [159]  [154][192][159][219][153][192] [153]";
  29. 210 print"[146][192][159][219][154][192] [159][221][221][221][221][221][221][173][174] [221][221] [221][221][221][221] [221] [154][192][159][219][153][192] [153][146][192][159]";
  30. 220 print"[219][154][192]    [154]   [159][188][187][153][221][159][172][190]  [154][221] [221][221] [221][176][189] [221][221] [221][176][179][221][176]";
  31. 230 print"[189]  [159][188][187][153]{$7d}[159][172][190]     [159]    [188]{$7b}[190]   [173][177][189][173]{$60}[177][189]  [173][177]";
  32. 240 print"[177][177]{$60}[189][173][189]    [159][188]{$7b}[190] ajh  [159]     [154]{$7d}           ";
  33. 250 print"               {$7d}       [154]     ! [153]1[159].....";
  34. 260 print"..Print Out Puzzle [154]!       [154]       [153]2[159]";
  35. 270 print".....Print Out Solution         [159]      ";
  36. 280 print" [153]3[159].......[209]uit to [204][207][193][196][211][212][193][210]            ";
  37. 287 :
  38. 288 :rem get loop
  39. 289 :
  40. 290 geta$:ifa$=""then290
  41. 300 ifa$="1"then350
  42. 310 ifa$="2"then880
  43. 320 ifa$="3"then40000
  44. 330 ifa$<"1"ora$>"3"then290
  45. 339 :
  46. 340 :rem print out puzzle
  47. 341 :
  48. 350 poke214,17:print:print"  [159][212]urn your printer on and hit a key  "
  49. 360 geta$:ifa$=""then360
  50. 370 poke781,18:sys59903
  51. 380 gosub40
  52. 390 ifst<>0then380
  53. 400 poke214,17:print:print"     [153][211]et top of form; [208]ress a key.    "
  54. 410 geta$:ifa$=""then410
  55. 420 open4,4,7
  56. 430 print#4,"                            [215] of the [208]"
  57. 440 print#4:print#4
  58. 450 print#4,"a.   26 = [204] of the [193] :............................................"
  59. 460 print#4
  60. 470 print#4,"b.   12 = [205] in a [217] :.............................................."
  61. 480 print#4
  62. 490 print#4,"c.   12 = [211] of the [218] :............................................"
  63. 500 print#4
  64. 510 print#4,"d.  365 = [196] in a [217] :.............................................."
  65. 520 print#4
  66. 530 print#4,"e.    3 = [208] of the [198] [211] :.........................................."
  67. 540 print#4
  68. 550 print#4,"f. 20000= [204] [213] the [211] :............................................."
  69. 560 print#4
  70. 570 print#4,"g. 1001 = [193] [206] :..................................................."
  71. 580 print#4
  72. 590 print#4,"h.    1 = [197] [196][160]in a [204] [217] :.........................................."
  73. 600 print#4
  74. 610 print#4,"i.   57 = [195] and [206] on :............................................"
  75. 620 print#4
  76. 630 print#4,"j.   52 = [195] in a [196] :.............................................."
  77. 640 print#4
  78. 650 print#4,"k.   24 = [200] in a [196] :.............................................."
  79. 660 print#4
  80. 670 print#4,"l.   10 = [217] in a [196] :.............................................."
  81. 680 print#4
  82. 690 print#4,"m.    7 = [196] in a [215] :.............................................."
  83. 700 print#4
  84. 710 print#4,"n.    5 = [208] of the [205] :............................................"
  85. 720 print#4
  86. 730 print#4,"o.  100 = [217] in a [195] :.............................................."
  87. 740 print#4
  88. 750 print#4,"p.   12 = [197] in a [196] :.............................................."
  89. 760 print#4
  90. 770 print#4,"q.   40 = [195] on a [195] [211] :............................................"
  91. 780 print#4
  92. 790 print#4,"r.   13 = [211] on the [195] [198] :.........................................."
  93. 800 print#4
  94. 810 print#4,"s. 1000 = [215] a [208] is [215] :............................................"
  95. 820 print#4
  96. 830 print#4,"t.  664 = [194] on a [196] :.............................................."
  97. 840 print#4
  98. 850 print#4," [193]maze your neighbors, impress your friends!"
  99. 860 fori=1to22:print#4:next:close4:goto120
  100. 869 :
  101. 870 rem print answers
  102. 871 :
  103. 880 poke214,17:print:print"[159]   [212]urn on [208]rinter and press a key"
  104. 890 geta$:ifa$=""then890
  105. 900 poke781,18:sys59903
  106. 910 gosub40
  107. 920 ifst<>0then910
  108. 930 poke214,17:print:print"[158]     [211]et top of form, press a key!"
  109. 940 geta$:ifa$=""then940
  110. 942 poke781,18:sys59903
  111. 950 open4,4,7
  112. 960 print#4,"                         [215] of the [208] [211]olutions"
  113. 970 print#4:print#4
  114. 980 print#4,"a.   26 = [204] of the [193] : [204]etters of the [193]lphabet":print#4
  115. 990 print#4,"b.   12 = [205] in a [217] : [205]onths in a [217]ear":print#4
  116. 1000 print#4,"c.   12 = [211] of the [218] : [211]igns of the [218]odiac":print#4
  117. 1010 print#4,"d.  365 = [196] in a [217] : [196]ays in a [217]ear":print#4
  118. 1020 print#4,"e.    7 = [217] of [194] [204] : [217]ears of [194]ad [204]uck":print#4
  119. 1030 print#4,"f. 20000= [204] [213] the [211] : [204]eagues [213]nder the [211]ea":print#4
  120. 1040 print#4,"g. 1001 = [193] [206] : [193]rabian [206]ights":print#4
  121. 1050 print#4,"h.    1 = [197] [196] in a [204] [217] : [197]xtra [196]ay in a [204]eap [217]ear":print#4
  122. 1060 print#4,"i.   57 = [195] and [206] on : [195]hannels and [206]othing on":print#4
  123. 1070 print#4,"j.   52 = [195] in a [196] : [195]ards in a [196]eck":print#4
  124. 1080 print#4,"k.   24 = [200] in a [196] : [200]ours in a [196]ay":print#4
  125. 1090 print#4,"l.   10 = [217] in a [196] : [217]ears in a [196]ecade":print#4
  126. 1100 print#4,"m.    7 = [196] in a [215] : [196]ays in a [215]eek":print#4
  127. 1110 print#4,"n.    5 = [208] of the [205] : [208]hases of the [205]oon":print#4
  128. 1120 print#4,"o.  100 = [217] in a [195] : [217]ears in a [195]entury":print#4
  129. 1130 print#4,"p.   12 = [197] in a [196] : [197]ggs in a [196]ozen":print#4
  130. 1140 print#4,"q.   40 = [195] on a [195] [211] : [195]olumns on a [195]ommodore [211]creen":print#4
  131. 1150 print#4,"r.   13 = [211] on the [195] [198] : [211]tars on the [195]olonial [198]lag":print#4
  132. 1160 print#4,"s. 1000 = [215] a [208] is [215] : [215]ords a [208]icture is [215]orth":print#4
  133. 1170 print#4,"t.  664 = [194] on a [196] : [194]locks on a [196]isk":print#4
  134. 1180 fori=1to23:print#4:next:close4:goto120
  135. 9997 :
  136. 9998 :rem scratch and save
  137. 9999 :
  138. 10000 open15,8,15,"s0:b.w of the p":close15:save"b.w of the p",8:end
  139. 39997 :
  140. 39998 :rem return to ls
  141. 39999 :
  142. 40000 a$="hello connect":fori=8to12:close2:open2,i,2:close2:ifstthen40020
  143. 40010 close15:open15,i,15,"r0:"+a$+"="+a$:input#15,er:close15:ifer=63then40030
  144. 40020 next:print"[147][146]":poke2048,0:poke44,8:poke53272,23:poke186,8:end
  145. 40030 poke646,peek(53281):print"[147][146]load"chr$(34)a$chr$(34)","i:poke43,1
  146. 40040 print"run":poke44,8:poke2048,0:poke631,13:poke632,13:poke198,2:end
  147. 59997 :
  148. 59998 :rem ls copyright box
  149. 59999